
PROGRAM 1   250 BYTES

   DPY-9252 REPAIR AID P1
   REG8 = 40
   EXECUTE PROGRAM 40
   DPY-2950 I//O TEST
   REG8 = 40
   EXECUTE PROGRAM 40
   WRITE @ C012FC = 00
   READ @ C012FE
   IF REGE = 1E GOTO 1
   DPY-#E=10
   STOP
1: LABEL 1
   WRITE @ C012F2 = 03
   WRITE @ C012F8 = AA
   DPY-READ INBND REG
   REG8 = 40
   EXECUTE PROGRAM 40
2: LABEL 2
   READ @ C012F4
   IF REGE = BB GOTO 3
   GOTO 2
   DPY-READ RTC STATUS REG
   REG8 = 40
   EXECUTE PROGRAM 40
3: LABEL 3
   READ @ C012F0
   IF REGE = 55 GOTO 4
   GOTO 3
4: LABEL 4
   WRITE @ C012F0 = F0
   DPY-END OF TEST#
   STOP

PROGRAM 40   23 BYTES

1: LABEL 1
   DEC REG8
   IF REG8 = 0 GOTO 2
   GOTO 1
2: LABEL 2
